home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 110 / Tiger_Disk_110_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_68 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  900b  |  19 lines
  1. 1 poke53280,.:poke53281,.:printchr$(147):forz=0to23:poke53265,peek(53265)or64
  2. 3 poke646,z:s=54272:pokes+24,15:pokes+4,81:pokes+5,12:pokes+6,87
  3. 5 print"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [145]";:poke781,z:sys59903
  4. 7 poke646,z/2:poke53282,z:poke53283,z+1:poke53284,z+2
  5. 9 pokes+7,205:pokes+1,z:pokes+8,z:pokes+12,21:pokes+13,255:pokes+11,33
  6. 11 print"[197][206][196][197][157][157][157][157][157][157][157][157][157]";:next
  7. 13 poke53282,z:poke53283,z+1:poke53284,z+2
  8. 15 forz=24to24step.1:print"[157][157][157][160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] [160] ";
  9. 17 poke53282,peek(53283):poke53284,peek(53282):pokes+4,128:pokes+11,32
  10. 19 poke781,z::poke53284,z/2:sys59903:printtab(z);:next:poke55296,z:print"[145]";
  11. 21 fori=110to129:poke+4,i:pokes+11,33:pokes+1,z:pokes+8,i:
  12. 25 printtab(i);:pokes+12,96:pokes+13,1:pokes+18,81:pokes+15,z:pokes+18,80
  13. 27 fort=ito44:poke646,t:pokes+4,129:pokes+11,32 :next:poke53282,peek(53284)
  14. 29 next:pokes+4,32:forp=0to39:pokes+4,81:print" [160][160][197][206][196][197][160][160][157][157][157][157][157][157]";:poke56325,1
  15. 30 poke53284,p:poke53282,p/3:poke53283,p/6:
  16. 31 pokes+4,128:pokes+24,15:pokes+1,p/6:next:pokes+4,33:
  17. 33 poke56325,1:print"[147][204][213][203][201][193][206]";:pokes+4,128
  18. 35 poke56325,55::fort=1to250:next:sys2048
  19.